home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_strings.mod < prev    next >
Text File  |  1988-04-24  |  620b  |  28 lines
  1. IMPLEMENTATION MODULE Strings ;
  2.  
  3. FROM InOut IMPORT WriteString,WriteLn;
  4.  
  5. PROCEDURE CompareString( VAR A , B : ARRAY OF CHAR ) : BOOLEAN ;
  6. VAR i : CARDINAL ;
  7.     Equal : BOOLEAN ;
  8. BEGIN
  9.      i := 0 ; Equal := TRUE ;
  10.      WHILE (A[i] # 0C) AND (B[i] # 0C) AND Equal DO
  11.           Equal := (A[i] = B[i]) ;
  12.           IF Equal THEN i := i + 1 END
  13.      END ;
  14.      RETURN ( A[i] > B[i] ) 
  15. END CompareString ;
  16.  
  17. PROCEDURE Length( A : ARRAY OF CHAR ) : CARDINAL ;
  18. VAR  i : CARDINAL ;
  19. BEGIN
  20.      i := 0 ;
  21.      WHILE A[i] # 0C DO
  22.           INC(i) 
  23.      END;
  24.      RETURN i 
  25. END Length ;
  26.      
  27. END Strings .
  28.